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® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 ® 
* DIGITAL Qui PENT T CORPORATION, “MAYNARD. MASSACHUSETTS, . 
j# ALL RIGHTS RESERVED. : 
e «THIS SOFTWARE Is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED « 
® ONLY In A ANCE WITH THE TERMS OF SUCH of ict CENSE AND WITH THE # 
® INCLUSION OF OTe ABOV COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
© COPIES THEREOF MAY NOT 1 BE PR OVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
® OTHER PERSON, NO T 0 AND OWNERSHIP OF THE SOFTWARE IS WHEREBY © 
¢ TRANSFERRED, * 
-@ 
[@ THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTI cE : 
:® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* CORPORATION. . 
[@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
;# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ' 
jteeeeeeeerereneneeececccccccceseeeeceeaeeesensenensesesssecsseseesesseneens 


oa 
o 


FACILITY: 
VAX/VMS Executive, 1/0 Drivers 

ABSTRACT: 
This driver is an example driver for the DMF32 parallel port. 
rots ¢ driver implements the DRIIC compatibility mode on the device. 
It does not implement the silo or DMA options, but serves as a 
feaplese to wnich such features could be added. 
This module contains the DMF32 PARALLEL PORT driver: 


Tables for joading and dispatching 
pads ol nitial ization routine 


The A yah. "70 routine 
The interrupt service routine 
Device specific Cancel 1/0 
ENVIRONMENT: 
Kernal Mode, Non-paged 
AUTHOR: 


Jake VanNoy January 1982 


—--—- 


Added ded. SDCDEF and SDYNDEF. 
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3; MODIFIED BY: 

; VO4=001 JL vO59%6 Jake VanNoy 6-SEP=1984 

; Add AVL to DEVCHAR, 

; vO3-005 JLv0385 Jake VanNoy 23-JUL-1984 

3 Add DPTSM_SVP to DP 

; v03-004 JLv0341 Jake VanNoy 28-MAR-1984 

; Correct Device IPL. 

; vO03-003 wHm0002 Bill Matthews 16*F eb-1984 

; Second part of change for edit wHm0001. 

; v03-002 wHno00t Bill Matthews 19-Dec-1983 

; and” 10688 cOR mate: new 1D8 fields 108$8_ COMBO. VECTOR 
3 and 1D8$8_COMBO_CSR_OFFSET for determin ng “the main CSR 
; address and loading the soft vector for the combo device. 
; v03-001 « Kathleen D. Morse 28-Jun-1982 
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-SBTTL Description of Interface 
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C compat 


eowaseocet 
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New Date Ready ==>: 
™x ‘ed oonereps 


tamer anae + 


prottet port for erword. 


(pulsed on write to OUTBUF) 
(pulsed on read from INBUF) 


MoOK<KMno wesc 
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a 
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This driver m y bes tested woing, the following ¢ cont iguretion of two on zee 
a control L ves TR and |) should b ed into spores staee SS 


; B) on the other conten, Setting CTRL 0 on the first device cause A. 
3 interrupt on REQ A on the second device (provided interrupt enable a” is set). 
; hecasanan > oe 

: ‘ 1?) ' eeeece)> C TRL . 9 eeeeeeeeee) REQ A eveeee) ' Dd ' 

3 ‘ 4 ‘ eoeceee)> C TRL wee meme aaa 'y REQ B eeeeee)> ‘ fil ' 

: ' 3 ' Ceeecce REQ A Cmrreceonne C TRL Caan am ' ; ' 

3 ‘ ‘ Ceecece REQ 8 Cesecesecaeen C TRL Ceoanae ' ' 

: ‘ Pp ' fwee ATA eeweoeooocoocoosooeecoecoecos\ ' p ' 

3 ‘ 9 i\ww~ 16 LINES (in each direction) ---=/; 4 ‘ 

; { 1 fe==> New Data Ready (not used) Ba 

3 ' iw==> Data Tx'ed (not used) 

: oe | Te: 
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»SBTTL Documentation on interface 


The DMF32 parallel port exchanges one 16-bit word at a time. A single 
O20 Foquaet transfers a buffer of data, with an interrupt requested for 
ea . 


For each buffer of geye transferred, the DMF32 parallel port allows for 
the eeenenee of add ' onal bits of information: the Control and Status 
Register (CSR) function (CTRL) and status (REQUEST) » ts. These bits are 
accessible to an *p l cet on process through the dev sf driver Q10 
interface. The CTRL bits are Labeled CTRL 0 and CTRL 1. The REQUEST 
bits are labeled REQUEST A and REQUEST 6B. 


The user device interfaced to the DMF32 parallel port interprets the 
value of the two CTRL bits. The Q10 request that initiates the transfer 
specifies the poer_ge ret modifer to indicate a change in the value 

for the CTRL bits. The P4 argument of the request specifies this a ea 
P4 bits 0 and 1 correspond to CTRL bits 0 and 1 respectively. Bits 
through 31 are not used. If required, the CTRL bits must be set for each 
Couyest, The CTRL bits set in the CSR are passed directly to the user 
evice. 


The device class for the DMF32 peratiss port is DCS_REALTIME and the 

device type is DT$_XI_DRI1C. The DMF32 parallel port driver does not 
use he default buffer size field. The value of this field is set to 
65,555. This driver defines no device-dependent characteristics. 


The DMF32 parallel port can perform logical, virtual, and physical 1/0 
speret iene The basic 1/0 functions are read, write, set mode, and set 


racteristics. 

Per wreome arr es someone caw a weet ownanaresa wes er aowrnrexreouweannacanaa $ 
! function Code and : Function ! Function : 
: Arguments ! Modifiers ! . 
Yoewonoen root eneametresnenaeePoosnnoeneoenoenateneneemanrvsce ran awceoe $y 
‘ ‘ ‘ 4 

10$_READLBLK P1,P2,- ‘| IOSM_SETFNCT | Read block 
P3,P4 IOSM-RESET =! 
JOSM-TIMED = 
10$_WRITELBLK P1,P2,- | JOSM_SETFNCT ‘Write logical block! 
P3,ph JOSM“RESET =! i 
1OSM_TIMED : 


i JOSM_ATINAST ‘Set PORT charact- | 
‘eristics for subse-! 
quent operations 


i JOSM_ATINAST ‘Set PORT charact- / 
‘eristics for subse-! 
: quent operations 


' 
] 
‘ 
JOS_SETCHAR P1,P3 


i 
i 10$_SETMODE P1,P3 
¢ 


Not in above table are functions 10$_READPBLK, [OS_READVBLK, WRITEPBLK 


a 


Be Be Be Oe Se Oe Se Oe Se Se Se Se Se Se Se Se Se Se Se Be Se Ge Se Se Se FH Se Se Se Ge ts Be Se Se Se Ge Se Ge Ge Ge Se Se Se Se Se Se Oe Se Se Se St Se Se Se Se oe 
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and WRITELBLK. There is no functional difference in these operations. 
Although the int 36 parallel port does not ort rerent \0re oeywery logical, 
virtual, and physical 1/0 sure dentically), the 


Ys ns (all are treated 
user must have the required pr 


vilege to issue a request. 


The function-dependent arguments for the read and write function codes are: 


° Pl == the starting virtual address of the buffer that 
is to receive data in the case of a read operation; or, in 
the case of a write operation, the eiriyee address of the 
buffer that is to send data to the DMF32 parallel port. 
Modify access to the buffer, rather than read or write 
pera s checked for all block mode read and write 
requests. 


° P2 -=- the size of the data pul te* in bytes. that is, the 
transfer count. Since the DMF parallel port performs 
word transfers, the transfer count must be an even value. 


° P3 == the timeout period for this request (in seconds). 
The value specified must be equal to or greater than 2. 
1OSM_TIMED must be specified. The default timeout value for each 
request is 10 seconds. 


° P4 -- the value of the DMF32 pecel tet port Command and Status 
Register (CSR) function (CTRL) bits to be set. f 
IOSM_SETFNCT is specified, the low-order three bits of P4 

:0) are written to CSR CTRL bits 1:0 (respectively) at the 
time of transfer. 


The transfer count specified by the P2 erguagnt must an even number 
of bytes. If an odd number or more than 65534 bytes is specifed, an 
error (SS$_BADPARAM) is returned in the 1/0 status block (10SB). If the 
transfer count is 0, the driver will transfer no data. However, i 
IOSM_SETFNCT is specified and P2 is 0, the driver will set the CTRL bits 
in the DMF32 parallel port CSR, and return the current CSR status bit 
values in the I0SB. 


The read and write Q10 functions can take three function modifiers: 
° IOSM_SETFNCT = set the function (CTRL) bits in the DMF32 parallel 


rt CSR before the data transfer is initiated. The 
ow-order two bits of the P4 argument spect ty phe CTR 
bits. The user device that interfaces the DMF32 PARA 
PORT receives the CTRL bits directly and their value 
interpreted entirely by the device. 


L 
°y 


If an unsolicited interrupt is received from the DMF32 parallel port, no 
read or write request is posted, and the next request s for a word mode 
read, the driver will return the word read from the DMF52 parallel port 

INBUF and store it in the first word of the user's buffer. In this case 

the driver does not wait for an interrupt. 


° 1OSM_TIMED = set the egy tee timeout interval for the data 
transfer request. The P35 argument specifies the timeout 
interval value in seconds. for consistent results, this 


16-SEP-1984 17:03:48.18 Page 6 
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value must be equal to or greater than 2. 


° 1OSM_RESET = perform a device reset to the DMF32 parallel port before 
any I/0 operation is initiated. This function does not 
affect any other device on the system or on the DMF32. 


The set mode and characteristic function codes are: 

0 10$_SETMODE 

fs) 10$_SETCHAR 

These functions take the following device/function-dependent arguments: 


° Pi = the virtual address of a quadword characteristics buffer. If 
the function modifer IOSM_ATTNAST is specified, P1 is the 
address the AST service routine. In this case, if P1 is 0, 
all attention ASTs are disabled. 


° P3 = the access mode to deliver the AST (maximized with the 
pouyecter » access mode). If IOSM_ATTNAST is not specified, P3 
s ignored. 


Figure 3-4 shows the quadword P1 characteristics buffer for 
10$_SETMODE and I0$_SETCHAR. 


31 16 15 8 


emer nonr aso n aaa mreeone eno 


! 
: not used 


Se 
oo 
~“< 
o 
@ 


eer 
' ' 


; device characteristics 


Aniiniiniginaeenimemimenemiaiinetds Se ee eee eeeeeoeeeeeo eees $ 


a ee and IO$_SETCHAR function codes can take the following function 
er: 


° 1OSM_ATTNAST = enable attention AST 


This function modifier allows the user process to queue an attention AST 
for got ivory when an asynchronous or unsolicited condition is detected 
by the DMF32 parallel port driver. Unlike ASTs for other Q10 functions, 
use of this function modifier does not increment the 1/0 count for the 
requesting process or lock pages in memory for 1/0 buffers. There must 
be an AST quota for each AST. 


Attention ASTs are delivered under the following conditions: 
° An unsolicited interrupt from the DMF32 parallel port occurs. 


° An attention AST is queued and a previous unsolicited interrupt 
has not been acknowledged. 


oe 


—— ae aS a ee a 


en 


r- 
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The SCANCEL system service is used to flush attention ASTs for a specific 
channel. 


108 SETMODE! 1OSM_ATTNAST and IO$_SETCHAR! 1OSM_ATTNAST are one-time AST 
enables; they must be explicitly re-enabled once the AST has been 
delivered if the user desires notification of the next leap age oP Use 
of this function modifier does not update the device characteristics. 
After the AST is delivered, the Q10 astprm parameter contains the 
contents of the DMF 2 paraltel ort CSR in the low two bytes and the 
value read from the DMF32 parallel port INBUF in the high two bytes. 


On completion of each read or write request, the 1/0 status block 
is filled with system and DMF32 parallel port status information. 


+2 10SB 


! byte count ; status ; 


' i ' 
unused PORT CSR } 


ee eeeoeooerosoesoe ¢ 


-—_ ——-_---- —___—_~ $$$ — ——E 


! . 
| KIDRIVER MAR; 1 16-SEP-1984 17:03:48.18 Page 9 
-SBTTL External and local symbol definitions 


; External symbols 


SACBDEF 3; AST control block 
SCRBDEF 3 Channel request block 
DCDEF 3; Device types 
SDDBDEF ; Device data block 
SOPTDEF ; Driver prolog table 
SDYNDEF 3; Dynamic data structure types 
SIDBOEF 3; Interrupt data block 
1ODEF 3; 1/0 function codes 
SIPLDEF ; Hardware IPL definitions 
SIRPDEF ; 1/0 request packet 
PRDEF ; Internal processor registers 
SPRIDEF 3; Scheduler priority increments 
SSDEF ; System messages 
SUCBDEF 3 Unit control block 
SVECDEF 3; Interrupt vector block 


; Local symbols 
; Argument List (AP) offsets for device-dependent Q10 parameters 


P1 = 0 3; First Q10 parameter 
P = 4 ; Second Q10 parameter 
P = 8 ; Third Q10 parameter 
PG = 12 ; Fourth Q10 parameter 
P5 = 16 ; Fifth Q10 parameter 
P6 = 20 : Sixth Q10 parameter 


3; Other constants 


KI_DEF_TIMEOQUT = 10 3; 10 second default device timeout 
KI_DEF BUFSIZ = 65535 ; Default buffer size 
KISK_VEC_OFFSET = 2 ; Vector offset 


4 
3; Macros 
° 


The SETCTRL macro sets the CTRL 0 and 1 Lines as they have been 

speciiied in P4 in a read or write Q10. They are cleared and a wait 
occurs before set. This is because testing for this example 

driver was done be wes" two DMF352°s in word mode, and the delay is so the 
microcode on the DMF32 can see the control Line changes. 


Be Se Se Se Ge Be te 


-MACRO 


a. 
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; UCB_XI definitions that follow the standard UCB fields 
SDEFINI UCB 
-*UCBSL_DPC+4—; 


i UCBSL_XI_LATIN 
-BLKL 1 3 Attention AST queue 
| 


SODEF UCBSL_X1_DPR 
-BLKL 1 3; Word count? 
SDEF UCBSW_xX1_ INBUF 
-BLKw 1 ; Input buffer temporary 
SDEF UCBSW_x1_CSR 
-BLkKw 1 ; CSR temporary 
; Bit positions for device-dependent status field in UCB (UCBSW_DEVSTS) 
SVIELD UCB,0,<- 3; UCB device specific bit definitions 
<ATINAST, ,M>,= 
<UNE KPT, ,M>- 


> 


UCBSK_SIZE=, 
SDEFEND UCB 


} 
| 


nn nnn Ey 
. Be ee ee DEP e Oe Be Se Se Se Be Se Se Se Se Se Se Oe Se Se Se Se Se Se SH Oe Se Se Se Be SESH SH Se SH Oe 
} 4g a 


Sen - 
<CTRL 


< — 
<F LUSH, .M>, © 


<HIMERR, .0>, : 
<RESET, .M>,- 
<REQ_B, .M>= 

> 


XI_CSRSM_IEAB = <XI_CSRSM_INTENB_A>! <x! 


.BLKW 
SDEF  XI_OUTBUF 


1 


-BLKW 1 
; Note that XI_INBUF and KI_MISC are at the same offset 


SOEF XI _ INBUF 
SDEF x1 “MISC 


; Bit positions for miscellaneous register 


SVIELD XI MISC,0,<- 
<Adp 


git. 


<SeCbUr >= 
<PRIBUF . {>= 
.BLKW 
SDEF  XI_IND 
-BLKW 


SDEFEND XI 


1 
1 


| 

j SDEFINI x1 

SDEF KI_CSR 

; Bit positions for device control/status 
SVIELD X1_CSR,0,< 


H 
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Device CSR 
register 


Contro 


Controt tine § register 
n 
pontce) ty 

mary/Secondary 


; Indirect mee eter Address 


Interrupt Enable 
Interrupt Enable 8 
Request A 

Done Primary 

Done Secondary 


ed 
Flush Buffer 
unused 
Non-existent memory error 
Master Reset 
Request 8 


; Output buffer Register 


Input buffer Register (when read) 


12 


_CSRSM_INTENB_B> ; Interrupt enable mask 


; Miscellaneous Register (when written) 


Miscellaneous register 
mee 


Secondary Buffer Address a 17 
rimary Buffer Address, Bit 


Indirect Register 


End of PORT CSR definitions 
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| -SBTTL Device Driver Tables 
3 Driver prologue table 


DPTAB = 
yes END ,= 


ADAPTER= 
FLAGSEDPS SvP 
UCBSIZESUCBSK “SIZE,= 
NAME =XIDR 
DPT_STORE INIT 
DPT_STORE UCB.UCBSB_FIPL.B. 
DPT“STORE UCB,UCB$B_DIPL.B 
DPT“STOR UCB “CBRL. “pe ytimh L. <- 
DEVSM_ A 
DEVSM— “RYRi- 
DEVSM— 1pvi~ 
DEVSM~ODV> 
DPT_STORE UCB-UCB$B_ DEVCLASS 


B,DC$_REA 
DPT“STORE UCB.UCBS$B_DEVIYPE ,6,0T$_R1_D 
DPT =STORE vce UCBS$W~DEVBUF rsizcu, - 
1 DE EFS BuF STZ 
DPT “store REINTT 
DPT_STORE DDB, DDBSL -p01 b,x18D0T 


DPT™ STORE CRB RiERRupT NTb+4,D 
DPT _store CRB CRBSL_INTD2+4,D,- 
x1 INfERRUPT 
DPT_STORE CRB, CRBSL INTDeVECSL INITIAL,= 
D.x1_CONTROC_INIT 
DPT_STORE "END 
; Driver dispatch table 
DDTAB = 
DEVNAM=X 
START=X1 ter aRT - 
FUNC TB=XT_FUNCTABLE,< 
CANCEL=X1~ CANCEL 
~ PAGE 
: Function dispatch table 
K1_FUNCTABLE : 
3; Valid 1/0 functions 


FUNCTAB , 


<READPBLK, READLBLK, Revetee ° 


WRITEPBLK.WRITELBLK,WRITEVB 
SE TMODE , SETCHAR, SENS 
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DPT-creation macro 

End of driver label 
Adapter type 

oe System page table 


Driver name 


ta 
+, Tel test ine table 
Device fork IPL 
Device interrupt IPL 
Device characteristics 
Available 
Real Time device 
input device 
output device 
ME i Device class 
C Device Type 
H Default butter size 


—BbewGe Ge Ge Ge Ge Ge Ge Ge Ge 


Start of reload 
initialization table 
Address of DDT 
Address of socerrupt 
service rou 

Address of foosveant 
service routine 

; Address of controller 
initialization routine 
: End of initialization 
tables 


DDT-creation macro 
Name of device 

peer i/ ade reueine 
Cancel 170° routine 


FDOT for driver 


EMODE , VSENSECHAR> 


, = = ————— 
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| FUNCTAB , ; No buffered functions 
FUNCTAB K1_READ WRITE,= 3; Device-specific FDOT 
| <READ ce K-REAGLB K ,READVBLK : 

L Se ey 


T 
rate bee eaten Rie lotto 
FUNCTAB 


sé TMOD MODE teETCH 
RESSENSEROD E OSENSERODE. SENSE CHARD 
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-SBTTL KI_CONTROL_INIT, Controller initialization 
oe 
K1 CONTROL INIT. Called when driver is loaded, system is booted, or 
power failure recovery. 
Functional Description: 
1) Allocetes the direct data path permanently 
. Assigns the controller data channel permanently 


Clears the Control and Status Register 
4) If power recovery, requests device time-out 


RG = address of CSR 
RS = address of 108 
+4 = address of DDB 
RB = address of CRB 


Outputs: 


VECSV_PATHLOCK bit set in CRBSL_INTD*+VECSB_DATAPATH 
UCB address placed into IDBSL_OONER 


3 
3 


X1_CONTROL_INIT: 
MOVL IDBSL ogg AAS RO 3; Address of UCB 
MOVL RO, IDB$L_OWNER(RS5) 3 Make permanent controller owner 
BISW #UCBSM_ONLINE, - 
ucB$w_STS(RO) ; Set device status "on-line" 


3: If powerfail has occured and device was active, force device time-out. 
; The user can set his own time-out interval for each request. Time- 
3; out is forced so a very long time-out period will be short circuited. 


15 


BBS #UCBSV_POWER, - 
UCBSW_STS(ROS,10$ : Branch if powerfail 
B1SB  #VECSA_PATHLOCK, - 
108 CRBSL_INTD+VEC$B_DATAPATH(R8) 3 Permanently allocate direct datapath 
crs, IDBSB_COMBO_CSR_OFFSET(RS),RO ; GET OFFSET TO MAIN DMF CSR 
$uBBS 1 DB$B8~COMBO VECTOR OFFSET (RS). > CALCULATE AND LOAD THE 
IDBSB~ VECTOR(RS), (R4)CRO) 3 VECTOR ADDRESS 
BSBW X1_DED_RESET ; Reset port 
RSB 3; Done 
NR a Pe Ee a eS RR ee 


«SBTTL KILREAD_WRITE, Data transfer FDT 


;+4 
; KILREAD_ WRITE, FDOT for CE AeLeL sREADVBLK ,READPBLK ,WRITELBLK ,WRITEVBLK, 


; Functional description: 


Rejects GUEUE os with odd transfer coun 
atte pe Que /0's for DMA request to OBA. Direct Data 


sft boundary 


1) 
2) 
3) ell A A. t inewoyt count pees itiog 3 in P3 into IRP 
4) Stores CIRL bits specified in P 

6) Checks block mode transfers for memory Rodi fy access 


; Inputs: 


AP = Address of P1 
= Buffer Address 
= Buffer size in bytes 
PS = Request clne-out. eriod (conditional on 1OSM_TIMED) 
P4 = Value for CSR cral 


bits (conditional on IO$M_SETFNCT) 
PS = 0 for Request A 


for Request B (DMA) 
; Outputs: 
RO = Error status if odd transfer count 


IRPSL_MEDIA = Time-out count for this request 
IRPS$L_SEGVBN = CTRL bits for PORT CSR 


Be Oe Se Se Oe Oe Oe Oe Oe Se Se Be Se Se Oe Be Oe Oe Se Oe Be Se Ss Oe Oe Se Se Oe Sees eee 
»@ 
to 
> Pa 
Qa 
a 
ie | 
e 
we 
wn 
o 
> 
v 
o 
wo 


MI_LREAD_WRITE: 


BLBC P2(AP) ,20$ : Branch if transfer count even 
10$: MOVZ7ZWL #SS$ ADPARAM, RO ; Set error status code 
JMP G*EXESABORTIO 3; Abort request 


208: MOVZWL IRPSW PEERS) 3; Fetch 1/0 Function code 

MOVL crane Ine. ant raise 3 Set request specific tinevout count 
BBS 3; Branch if time-out specified 
MOVZUL 

iit, rrinoyt 3 Else set default timeout value 
30$: EXTZV #0,42,P4(AP),- 
IRP$L_SEGVBN(R3) F Get value for CTRL bits 
RSB 3; Return 
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~SBTTL KI_SETMODE, Set Mode, Set Char FDOT 


3:44 
; KILSETMODE, FDOT routine to process SET MODE and SET CHARACTERISTICS 
; Functional description: 
: If IOSM_ATTNAST modifier is set, queue attention AST for device 
3 Else, finish 1/0, 
; Inputs: 
: 4 = 1/0 packet address 
; = PCB address 
; RS = UCB address 
; R6 = CCB address 
3 R7 = Function code 
3 AP = Q10 Paramater List address 
: Outputs: 
; If 1OSM_ATTNAST is specified, queue AST on UCB attention AST List. 
3 Else, uSe exec routine to update device characteristics 
X1_SETMODE : 
MOVZWL IRPSW_FUNC(R3) ,RO 3; Get entire function code 
BBC #IOSVZATTNAST,RO,20$ §: Branch if not an ATIN AST 
3; Attention AST request 
PUSHR #*R< 
MOVAB UcBSL a TATINGRS), R7 3; Address of ATTN AST control block List 
JS8 oat evar ; Set up attention AST 
POPR Sohone 
BLBC RO ; Branch if error 
BISW #UCBSM_ATINAST, - 
a ae unBeVSt sins) 3 Flag ATTN AST expected. 
‘tts, u BEVStS(As), 108 =; Deliver AST if unsolicited interrupt 
10$: JMP Hy DEC ATI NAS! 3; Thats all for now 
20%: JmP G*EXESSETCHAR 3; Set device characteristics 
308: CLAL R1 3 zero R1 
IMP G*E XESABORTIO 3; Abort 1/0 with RO as status 


-SBTTL KI_LSTART, Start 1/0 routines 
; KL_START - Start a data transfer, set characteristics, enable ATTN AST. 
; Functional Description: 

This routine has one major function: 
1) Start an 1/0 transfer. The CTRL bits in the port CSR are set. If 

the transfer count is zero, the STATUS bits in the PORT CSR 

are read and the request completed. 
3 ; Inputs: 


ne = Address of the 1/0 request packet 
R5 = Address of the UCB 


: ; Outputs: 


RO = final status and number of bytes transferred 
Ri = value of CSR STATUS bits 


KI_START: 
; Retrieve the address of the device CSR 
ASSUME IDBSL_ cs (fe 9°. 


MOVL uces 


~*~ : aperess of CRB 
MOVL acrest_ TniDeveCSL_ 1DB(R4) 


ae of CSR 
3; Fetch the 1/0 function code 


MOVZWL IRPSW_FUNC(R3),R 3; Get entire function code 
ROVE Rt UC CB$w FUNC (AS) > Save FUNC in UCB 


#10837 F CODE {RI ,R2 ; Extract function field 
; If subfunction modifier for device reset is set, do one here 
BBC $*#10$V pesgl. R1,40$ 3; Branch if not device reset 


BSBW X1_DEV_RES ; Reset port 

3; This must be a dete transfer function - i.e. READ OR WRITE 

: Check to see it s isa gore length transfer 

If so, only set eR CTRL bits and return STATUS from CSR 

40%: TST VERE _OCHT CRS) s is trons fer ce t zero? 
BNEQ 3 No, continue w eh ata, transfer 
BBC S*#10$SV_SETFNCT,R1,60$8 ; Set CSR CTRL speci 
OSBINT 3 prsapie bogerey pts 
SETCTAL 3; Set CTRL b % CSR 
MOVZ7ZWL 9 KI_CSR(R4),RI : dk cs 
ENBINT 3 Enable Interrupts 
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BRB 70$ : Skip clearing of R1 
CLRL i ; Clear R1 
BISW #X1_CSRSM_IEAB,- 
Enable device interrupts (A & B) 


Xl ESE CRG? 
MOVZ7WL #SS$_NORMAL ,RO Set success 
REQCOM Request done 


: Do the read or the write 


MOVZWL UCB$W_BCNT(RS),R ; Get byte count 
ASHL 


0 
#-1,R0,UCBSL_Xf_DPR(RS) ; Make byte count into word count 
-SBTTL = word mode tranfer 


WORD MODE == Process word mode (interrupt per word) transfer 
FUNCTIONAL DESCRIPTION: 


Data is transferred one word at a time with an interrupt for each word. 
The request is handled separately for a write (from memory to port 

and a read (from port to memory). 

For a write, data is fetched from memory, loaded into the ODR of the 
port and the system waits for an interrupt. For a read, the system 
waits for a port interrupt and the INBUF is transferred into memory. 

If the unsolicited interrupt tog is set, the first word is transferred 
directly into memory withou waiting for an interrupt. 


WORD _MODE : 
; Dispatch to separate loops on READ or WRITE 


- PAGE 
+4 


CMPB #10$_READPBLK ,R2 3; Check for read function 
BEQL WORD MODE_READ 


+ 
WORD MODE WRITE == Write (output) in word mode 


| 


60$: 1 
708: 

1008: 

+4 

10$: 

; d 

WORD _MODE _WRITE: 
108: 


FUNCTIONAL DESCRIPTION: 


Transfer the requested number of words from user memory to 
the port OUTBUF one word at a time, wait for interrupt for each 
word. 


BSBu MOVF RUSER 
DSBINT 


MOV R1,X1 OUTBUF (R4) 


Get two bytes from user buffer 
Lock out interrupts 

Flag interrupt expected 

Move data to port 


CN 


$$ 
| 
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Transfer the requested number of words from the port INBUF into 

user memory one word at a time, wait for interrupt for each word. 
If the unexpected (unsoliciteds interrupt bit is set, transfer the 
bee. a pe received) word to memory without waiting for an 
nterrupt. 


WORD_MODE_READ: 
SETIPL UCBS$B_DIPL(RS) ; Lock out interrupts 


: If an unexpected (unsolicited) interrupt has occured, assume it 
; is for this READ request and return value to user buffer without 
; waiting for an interrupt. 


BBSC #UCBSV_UNEXPT, = 
UCB$W_BEVSTS(R5),20$ |; Branch if unexpected interrupt 


B1SwW #X1_CSRSM_JEAB, - 
KI_CSR(R4T ; Set Interrupt Enable (A & B) 
SETCTRL ; Clear and set CTRL bits 
; Wait for interrupt, powerfail, or device time-out 
WFIKPCH XI_TIME_OUTW, IRPSL_MEDIA(R3) 
; Decrement transfer count, and loop until done 
10F ORK ; Fork to lower IPL 
DECW YCSSL KI _DPRCRS) ; ALL words transferred? 
BNEQ 0$ 3 No, loop until finished. 
3; Transfer is done, clear gage expected flag and FORK 
3; ALL words read or written in WORD MODE. Finish 1/0. 
RETURN_STATUS: 
MOVZWL #SS$_NORMAL,RO ; Complete success status 
RLS #2, UTBSL_XI_DPR(RS),R1 ; Calculate actual bytes x fered 
SUBW R1,UCBSW-BCAT (RS) RI ; From requested number of bytes 
INSV 1 . ; And place in high word of RO 
MOVZWL UCBS$W_XI CSR(RS) RI : Return CSR status 
BICwW #<XI_CSRSM_CTRLO! - 
XI-CSRSM_CTRL1>,~ 
K1_CSR(R4) 3; Clear CTRL bits 
BISW #xT_CSRSM_IEAB,- 
KI_USR(R4Y ; Enable device interrupts (A & B) 
REQCOM 3; Finish request in exec 
- PAGE 
+¢ 
WORD MODE READ -- Read (input) in word mode 
FUNCTIONAL DESCRIPTION: 


DSBINT 
10$: BI SW #X1_CSRSM_IEAB, - 
KI_USR(R4T ; Set Interrupt Enable (A & B) 
3; Clear and set CTRL bits 


| SETCTRL 
| 


20 
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; Wait for interrupt, powerfail, or device time-out 
WFIKPCH XI_TIME_OUTW, IRPSL_MEDIA(R3) 
; Decrement transfer count, and loop until done 


208 10F ORK ; Fork to lower IPL 
: BSBwW MOVTOUSER ; Store two bytes into user buffer 
; Send interrupt back to sender. Acknowledge we got last word. 
DSBINT 
DECW UCBSL_X1_DPR(RS) ; Decrement transfer count 
NEQ 10$ ; Loop until all words transferred 
SETCTRL 
ENBINT 
raat BRw RETURN_STATUS 3; Finish request in common code 
; MOVFRUSER = Routine to fetch two bytes from user buffer. 
: INPUTS: 
; RS = UCB address 
> OUTPUTS: 
: R1 = Two bytes of data from users buffer 
r Buffer descriptor in UCB is updated. 
. -ENABL LSB 
MOVFRUSER: 
MOVAL <=(SP),R1 : Address of temporary stack loc 
MOVZBL R ; Fetch two bytes 
JSB G* {OC SMOVFRUSER ; Call exec rout ine to do the deed 
MOVL (SP)+,R1 : Retrieve the b yt es 
6RB ; Update UCB buffer pointers 
: MOVTOUSER = Routine to store two bytes into users buffer. 
> INPUTS: 
; RS = UCB addre 
3 UCBSW_XxI _TNBUF (RS) = Location where two bytes are saved 
: OUTPUTS: 
; Two bytes are stored in user buffer and buffer descriptor in 
: UCB is updated. 


MOVTOUSER: 
MOVAB UCBSW_XI_INBUF(RS),R1 ; Address of internal buffer 


c+ -_—_—__-—- ——— -_— 


| 
| 
| 


208: 


308: 


a 
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MOVZBL #2 R2 
JSB G* {OC SMOVTOUSER : Calle 

i Update “butter pointers in UCB 
ADDW #2 UCBSW_BOFF (RS) Add two to buffer Soyer sonar 
BICW . <*KO1FF> ,UCBSW_| sore cn Modulo the page s 
BNEQ + NEQ. no page boundary crossed 
ADDL 7e UCBSL_SVAPTE (RS) : Point to next page 
RSB 


-DSABL LSB 


9 
“XIDRIVER.MAR; 1 16-SEP-1984 17:03:45.16 Page 23 


-SBTTL KI_LTIME_OUTW, Device time-out routine 


;¢¢ 

3; Device TIME-OuT 

: Clear port CSR 

3; Return error status 

: Power failure will appear as a device time-out 


KIL TIME OUTW: ; Time-out for WORD mode transfer 
BSBwW Xl DEV_RESET ; Reset controller 
novel + _T TIMEOUT RO ; Error status 
CLRW UCBSW_DEVSTS(RS) ; Clear ATTN AST flags 
BICw ocucesn iin $ 
CBSM_TIMOUT | - 
UCBSA-CANCEL ie 
UCBSw_STS(R5) - ; Clear unit status flags 


REQCOM ; Complete 1/0 in exec 


cc -- -— —— 


| 9 
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i -SBTTL XKI_INTERRUPT, Interrupt service routine for PORT 
KI_LINTERRUPT, Handles interrupts generated by port 

Functional description: 

| 

| 

| 


This routine is entered whenever an interrupt is generated 

by the port. It checks that an interrupt was expected. 

If not, it sets the unexpected (unsolicited) taser ryat flag. 

ALL device registers are read and stored into the UCB. 

If an interrupt was expected, it calls the driver back at its Wait 


For enterryet pent 
Deliver ATTN AST's if unexpected interrupt. 
Inputs 
00(SP) = Pointer to address of the device IDB 
04(SP) = saved RO 
et = saved Ri 
12(SP) = saved R 
bo = saved R 
(SP) = saved R4 
4(SP) = saved R 
ote = saved PSL 
(SP) = saved PC 


; Outputs: 


The driver is called at its Wait For Interrupt point if an 
interrupt was expected. 
The current value of the port CSR's are stored in the UCB. 


. 
. 
. 
°. 
7 
o 
. 
* 
. 
. 
*. 
* 
c 

. 
* 
3° 
oe 
. 
* 
° 
. 
° 
oe 
. 
° 
. 
*. 
° 
° 
* 
. 
* 
° 
° 
o 
. 
° 
. 
. 
. 
° 
. 
° 
* 


KI_L INTERRUPT: ; Interrupt service for PORT 
MOVL a(SP)+¢,R4 ; Address of IDB and pop SP 
mOva (R4) RS :; CSR and UCB address from IDB 


Read INBUF and CSR 


MOVW XI_INBUF(R4), = 

UCBS$w_X1_INBUF (RS) ; Read input data 
mMOVw =I. - 

UCBSw_x1_CSR(RS) ; Read CSR 


; Check to see if device transfer request active or not 
: If so, call driver back at Wait for Interrupt point and 
; Clear unexpected interrupt flag. 


BBCC #uCBSV_INT, = 
UCB$W_STS(AS), 108 3; If clear, no interrupt expected 


: potorrupt expected, clear unexpected interrupt flag and call driver 
3 back. 


BICW  #UCBSM_UNEXPT, - 
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| 

UCB ew DE YSIS (RS) ; Clear unexpected antorrupt flag 
MOVL est FRSC(R5),R ; Restore drivers R 

C_FPC(RSS i Call driver back after WFIKPCH 
on 

; Deliver ATTN AST’s if no interrupt expected and set unexpected 

; interrupt flag. 


108 
BISW vara UNEXPT, = 
UCBSW_BEVSTS(RS) ; Set unexpected interrupt flag 
BSBU = KI DEC_ATTNA ; Deliver ATIN AST's 
B1Sw @XxT_CSRSM_IEAB,- 
KI_CSR(RGT ; Enable device interrupts (A & B) 
; Restore registers and return from interrupt 
208: 


POPR #*M<RO,R1,R2,R35,R4,R5> ; Restore registers 
REI ; Return from interrupt 


aon i 


es SE nae ee ae 


| KIDRIVER MAR; 1 


: ; Functi 


: ; Output 


K1_ CANCE 


3 Finish 


: for th 
208: 
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-SBTTL KI_LCAMCEL, Cancel 1/0 routine 


onal description: 


+¢ 
; KI_CANCEL, Cancels an 1/0 operation in progress 


Flushes Attention AST queue for the user. 
If Soene tor in progress, do a device reset to port 


and finish the request. 
Clear interrupt expected flag. 


; Inputs: 


ress of current IRP 


DD 
= 
“nun 


address of the device's 
$: 


Ls 


BBCC #UCBSV_ATTNAST 
uCcBSw “BEVSTS(RS), 2086S; 


all ATTN AST's for this process. 


PUSHR — #*NCR2,R6,R7> 
MOVAB UCBSL_X!I ATINCRS), a? 


JSB G*COMSF LOSHATINS 3 

POPR PRCRD RG i 

BICW #UCBSM UNEXPT, - 
UCB$W_BEVSTS(RS) : 


; Check to see if a data transfer request 


is process on this channel 


+ al ucese DIPL(RS) 


ae OCSCANCELIO 
aycehy sfeenss: 308 : 
MOVZWL #SS$_CANCEL.RO ; 
CLRL R1 
CLRW yceey DEVSTS(RS) 3 
BICW <UCBSA_ TIM ~ 
UCBSA_BSY ie 
UcBsA- FOMceL - 
tBSn sn-iNe yt>.° 
ucese. STS(R 3 
REQCOM 3 


negetes value of channel index 
address of the PCB roquees "8 the cancel 


3; Cancel 1/0 
ATTN AST enabled? 
up channel punnor 


Set 
inte of Listhead 
Flush ATIN AST ss for process 


Clear unexpected interrupt flag 
is in progress 


3; Lock out device interrupts 
3; Check if transfer going 


Branch if not for this guy 
Status is request canceled 
Clear unexpected interrupt flag 


Clear unit status {tags 
Jump to exec to finish 1/0 
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li, 


308: 
SETIPL UCBSB_FIPL(RS) 3; Lower to FORK IPL 
RSB 3; Return 


lowers: tes 


ul “DEL ~ATTNAST: 
BBCC 
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-SBTTL KI_DEL_ATTNAST, Deliver ATTN AST's 
Kd -DEL_ATTNAST, Deliver all outstanding ATIN AST's 


: ; Funct ional description: 
This routine is used byte port 


outstanding attenti 


se exec. In addition, it Seales 
and Input Data Buffer Register in 


RS = UCB of unit 
; Outputs: 
O88 Re Destroyed 
R4,RS Preserved 


#UCBSV_ATTNAST 
ucesu usBESTS(RS), 308 
PUSHR #°M 


108: MOVL 


8 
MOVAB UCBSL’XI_ATTN(R1) ,R2 
(R2) RS 


uote 5 evsischt) 


MOV ucB BSu_ Xi  INBUF (R1), 
ACBSL “KAST+#6(R5) 
MOVW UCBSW_XI_CSR(R1), 
ACBSL “KAST#4(R5)- 
PUSHAB 6*10$~ 


FORK 


; AST fork procedure 


river to deliver all of the 
s copied from COMSDELATTNAST in 
the saved value of the port CSR 


the AST paramater. 


Any ATIN AST's expected? 
Save R3,R4,R5 

Get address of UCB 

Address of ATTN AST Listhead 
Address of next outry on list 
No next entry, end of loop 


Clear unexpected interrupt flag 
Close List 


Store INBUF in AST paramater 


Store CSR in AST paramater 
a Jee address for FORK 


that it soos through all AST's 


FORK ee this 


mOva ACBSL_KAST(R5) ,ACBSL mare 


MOVB ACBS$L “rastot ans ACB 
MOVL acest Thy 


CLRL 
MOVZBL zPR | =IOCOR, R2 
JMP G*SCHSOAS 


0$: POPR @*M<R3,R4,RS> 
O$: RSB 


ahonte tagyranes entries 
1ecR55, ACBSC_PID(R5) 


3; Set riority increment 
; beow’t e AST " 


3; Restore registers 


Return 


ae 


— 
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-SBTTL XKI_DEV_RESET, Device reset routine 
; KI_DEV_RESET = Device reset routine 


This rout ine raises IPL to device IPL, performs a device reset to 
the required controler, and re-enables device interrupts. 


Inputs: 


RG = Address of Control and Status Register 
RS = Address of UCB 


Outputs: 
Controller is reset, controller interrupts are enabled 


K1_DEV_RESET: 
DSBINT ; Raise IPL to Lock all interrupts 
B1SwW #X1_CSRSM_RESET,= 
KI_CSR(RGT ; Reset device 
TIMEWAIT = 3; Timewait to allow reset 
TIME = #500,- 
BITVAL = @Xxi_CSRSM_RESET,- 
SOURCE = XI_CSR(R4J,- 
CONTEXT = W,- 
SENSE = .FALSE. 
BiSW #X1_CSRSM_JEAB,=- 
KI_CUSR(R4S ; Enable device interrupts (A & B) 
ENBINT 3; Restore IPL 
RSB 
MI LEND: ; End of driver label 
END 
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